/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / amos / AMCAFExa.lha / AMCAF_Examples / TdStars2.AMOS

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 76 31 33 34 20 |AMOS Bas|ic v134 |
|00000010| 00 00 07 86 1f 01 06 52 | 00 36 20 2a 2a 2a 2a 2a |.......R|.6 *****|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 20 43 6f 6d 6d 61 6e 64 | 73 20 75 73 65 64 3a 20 | Command|s used: |
|00000050| 00 00 29 01 06 52 00 4a | 20 2a 20 20 20 20 20 20 |..)..R.J| *      |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 20 54 |        |     * T|
|00000080| 64 20 53 74 61 72 73 20 | 42 61 6e 6b 20 20 20 20 |d Stars |Bank    |
|00000090| 20 20 54 64 20 53 74 61 | 72 73 20 4f 72 69 67 69 |  Td Sta|rs Origi|
|000000a0| 6e 20 00 00 28 01 06 52 | 00 48 20 2a 20 20 20 20 |n ..(..R|.H *    |
|000000b0| 20 20 20 20 20 20 20 41 | 6d 63 61 66 20 45 78 61 |       A|mcaf Exa|
|000000c0| 6d 70 6c 65 73 20 20 20 | 20 20 20 20 20 20 20 2a |mples   |       *|
|000000d0| 20 54 64 20 53 74 61 72 | 73 20 4c 69 6d 69 74 20 | Td Star|s Limit |
|000000e0| 20 20 20 20 54 64 20 53 | 74 61 72 73 20 44 72 61 |    Td S|tars Dra|
|000000f0| 77 20 00 00 24 01 06 52 | 00 40 20 2a 20 20 20 20 |w ..$..R|.@ *    |
|00000100| 20 20 20 20 20 20 54 64 | 20 53 74 61 72 73 20 32 |      Td| Stars 2|
|00000110| 20 56 31 2e 30 20 20 20 | 20 20 20 20 20 20 20 2a | V1.0   |       *|
|00000120| 20 54 64 20 50 6c 61 6e | 65 73 20 20 20 20 20 20 | Td Plan|es      |
|00000130| 20 20 20 20 3d 51 73 69 | 6e 20 00 00 24 01 06 52 |    =Qsi|n ..$..R|
|00000140| 00 40 20 2a 20 20 20 20 | 20 20 57 72 69 74 74 65 |.@ *    |  Writte|
|00000150| 6e 20 62 79 20 43 68 72 | 69 73 20 48 6f 64 67 65 |n by Chr|is Hodge|
|00000160| 73 20 20 20 20 20 20 2a | 20 54 64 20 41 63 63 65 |s      *| Td Acce|
|00000170| 6c 65 72 61 74 65 20 4f | 66 66 20 20 3d 51 63 6f |lerate O|ff  =Qco|
|00000180| 73 20 00 00 1d 01 06 52 | 00 32 20 2a 20 20 20 20 |s .....R|.2 *    |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a |        |       *|
|000001b0| 20 54 64 20 47 72 61 76 | 69 74 79 20 00 00 1c 01 | Td Grav|ity ....|
|000001c0| 06 52 00 30 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.R.0 ***|********|
|000001d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 20 54 64 20 4d 6f |********|** Td Mo|
|000001f0| 76 65 20 20 00 00 11 01 | 06 52 00 1a 20 20 20 20 |ve  ....|.R..    |
|00000200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000210| 20 20 20 20 20 20 00 00 | 17 01 06 52 00 26 20 52 |      ..|...R.& R|
|00000220| 65 6d 6f 76 65 20 74 68 | 65 20 6d 6f 75 73 65 70 |emove th|e mousep|
|00000230| 6f 69 6e 74 65 72 20 66 | 72 6f 6d 20 73 63 72 65 |ointer f|rom scre|
|00000240| 65 6e 2e 20 00 00 03 01 | 1d e0 00 00 14 01 06 52 |en. ....|.......R|
|00000250| 00 20 20 4f 70 65 6e 20 | 61 20 65 78 74 72 61 20 |.  Open |a extra |
|00000260| 68 61 6c 66 62 72 69 67 | 68 74 20 73 63 72 65 65 |halfbrig|ht scree|
|00000270| 6e 2e 00 00 14 01 09 ea | 00 3e 00 00 00 00 00 5c |n.......|.>.....\|
|00000280| 00 3e 00 00 01 40 00 5c | 00 3e 00 00 00 c8 00 5c |.>...@.\|.>.....\|
|00000290| 00 3e 00 00 00 40 00 5c | 0c 90 00 00 11 01 14 46 |.>...@.\|.......F|
|000002a0| 00 54 0d 34 00 54 13 dc | 00 3e 00 00 00 00 00 54 |.T.4.T..|.>.....T|
|000002b0| 13 d2 00 3e 00 00 00 01 | 00 54 0b ae 00 00 11 01 |...>....|.T......|
|000002c0| 06 52 00 1a 20 4c 6f 61 | 64 20 61 20 62 61 63 6b |.R.. Loa|d a back|
|000002d0| 67 72 6f 75 6e 64 70 69 | 63 74 75 72 65 2e 00 00 |groundpi|cture...|
|000002e0| 0c 01 17 d4 00 26 00 0e | 64 61 74 61 2f 62 65 61 |.....&..|data/bea|
|000002f0| 63 68 2e 69 66 66 00 00 | 19 01 06 52 00 2a 20 4c |ch.iff..|...R.* L|
|00000300| 69 6d 69 74 20 74 68 65 | 20 6d 6f 75 73 65 20 74 |imit the| mouse t|
|00000310| 6f 20 74 68 65 20 73 63 | 72 65 65 6e 20 62 6f 75 |o the sc|reen bou|
|00000320| 6e 64 61 72 69 65 73 2e | 00 00 05 01 0c ca 00 54 |ndaries.|.......T|
|00000330| 1e 54 00 00 29 01 06 52 | 00 4a 20 44 65 66 69 6e |.T..)..R|.J Defin|
|00000340| 65 20 61 20 62 61 6e 6b | 20 66 6f 72 20 74 68 65 |e a bank| for the|
|00000350| 20 73 74 61 72 73 2e 20 | 49 66 20 79 6f 75 20 68 | stars. |If you h|
|00000360| 61 76 65 20 61 20 74 75 | 72 62 6f 20 62 6f 61 72 |ave a tu|rbo boar|
|00000370| 64 2c 20 79 6f 75 20 63 | 61 6e 20 69 6e 63 72 65 |d, you c|an incre|
|00000380| 61 73 65 20 00 00 0f 01 | 06 52 00 16 20 74 68 65 |ase ....|.R.. the|
|00000390| 20 61 6d 6f 75 6e 74 20 | 6f 66 20 73 74 61 72 73 | amount |of stars|
|000003a0| 2e 20 00 00 0c 01 00 4e | 08 00 0a 7e 00 3e 00 00 |. .....N|...~.>..|
|000003b0| 00 09 00 5c 00 3e 00 00 | 00 64 00 00 14 01 06 52 |...\.>..|.d.....R|
|000003c0| 00 20 20 4c 69 6d 69 74 | 20 74 68 65 20 73 74 61 |.  Limit| the sta|
|000003d0| 72 73 20 74 6f 20 74 68 | 65 20 73 63 72 65 65 6e |rs to th|e screen|
|000003e0| 2e 20 00 00 05 01 00 4e | 08 00 0a 94 00 00 18 01 |. .....N|........|
|000003f0| 06 52 00 28 20 53 65 74 | 20 74 68 65 20 70 6c 61 |.R.( Set| the pla|
|00000400| 6e 65 73 20 66 6f 72 20 | 75 73 61 67 65 20 77 69 |nes for |usage wi|
|00000410| 74 68 20 54 64 20 53 74 | 61 72 73 2e 00 00 1d 01 |th Td St|ars.....|
|00000420| 06 52 00 32 20 54 68 69 | 73 20 74 69 6d 65 20 77 |.R.2 Thi|s time w|
|00000430| 65 20 75 73 65 20 74 68 | 65 20 65 78 74 72 61 20 |e use th|e extra |
|00000440| 68 61 6c 66 62 72 69 67 | 68 74 20 70 6c 61 6e 65 |halfbrig|ht plane|
|00000450| 20 6f 6e 6c 79 2e 00 00 | 0c 01 00 4e 08 00 0b cc | only...|...N....|
|00000460| 00 3e 00 00 00 05 00 5c | 00 3e 00 00 00 05 00 00 |.>.....\|.>......|
|00000470| 22 01 06 52 00 3c 20 54 | 75 72 6e 20 6f 66 66 20 |"..R.< T|urn off |
|00000480| 74 68 65 20 61 63 63 65 | 6c 65 72 61 74 69 6f 6e |the acce|leration|
|00000490| 2e 20 54 65 73 74 20 69 | 74 20 61 6c 73 6f 20 77 |. Test i|t also w|
|000004a0| 69 74 68 20 61 63 63 65 | 6c 65 72 61 74 69 6f 6e |ith acce|leration|
|000004b0| 2e 20 00 00 05 01 00 4e | 08 00 0b ae 00 00 19 01 |. .....N|........|
|000004c0| 06 52 00 2a 20 54 68 65 | 20 6e 65 78 74 20 76 61 |.R.* The| next va|
|000004d0| 72 69 61 62 6c 65 20 69 | 73 20 75 73 65 64 20 66 |riable i|s used f|
|000004e0| 6f 72 20 74 68 65 20 61 | 6e 67 6c 65 2e 20 00 00 |or the a|ngle. ..|
|000004f0| 0a 01 00 06 00 00 02 00 | 77 00 ff a2 00 3e 00 00 |........|w....>..|
|00000500| 00 00 00 00 26 01 06 52 | 00 44 20 4d 61 69 6e 20 |....&..R|.D Main |
|00000510| 6c 6f 6f 70 3a 20 52 65 | 70 65 61 74 20 75 6e 74 |loop: Re|peat unt|
|00000520| 69 6c 20 74 68 65 20 75 | 73 65 72 20 70 72 65 73 |il the u|ser pres|
|00000530| 73 65 73 20 61 20 6b 65 | 79 20 6f 72 20 61 20 6d |ses a ke|y or a m|
|00000540| 6f 75 73 65 20 62 75 74 | 74 6f 6e 2e 20 20 00 00 |ouse but|ton.  ..|
|00000550| 04 01 02 50 00 00 00 00 | 16 03 06 52 00 24 20 53 |...P....|...R.$ S|
|00000560| 79 6e 63 68 72 6f 6e 69 | 73 69 7a 65 20 77 69 74 |ynchroni|size wit|
|00000570| 68 20 74 68 65 20 72 61 | 73 74 65 72 20 62 65 61 |h the ra|ster bea|
|00000580| 6d 2e 00 00 03 03 0c ca | 00 00 0c 03 06 52 00 10 |m.......|.....R..|
|00000590| 20 41 64 64 20 74 68 65 | 20 61 6e 67 6c 65 2e 20 | Add the| angle. |
|000005a0| 00 00 0b 03 04 58 00 06 | 00 00 02 00 77 00 00 5c |.....X..|....w..\|
|000005b0| 00 3e 00 00 00 02 00 00 | 1a 03 06 52 00 2c 20 53 |.>......|...R., S|
|000005c0| 65 74 20 74 68 65 20 67 | 72 61 76 69 74 79 20 74 |et the g|ravity t|
|000005d0| 6f 20 73 69 6e 65 20 61 | 6e 64 20 63 6f 73 69 6e |o sine a|nd cosin|
|000005e0| 65 20 76 61 6c 75 65 73 | 2e 20 00 00 28 03 00 4e |e values|. ..(..N|
|000005f0| 08 00 0b 78 00 4e 08 00 | 11 14 00 74 00 06 00 00 |...x.N..|...t....|
|00000600| 02 00 77 00 00 5c 00 3e | 00 00 00 04 00 7c ff ca |..w..\.>|.....|..|
|00000610| 00 3e 00 00 00 02 00 5c | 00 4e 08 00 11 06 00 74 |.>.....\|.N.....t|
|00000620| 00 06 00 00 02 00 77 00 | 00 5c 00 3e 00 00 00 04 |......w.|.\.>....|
|00000630| 00 7c ff ca 00 3e 00 00 | 00 02 00 00 29 03 06 52 |.|...>..|....)..R|
|00000640| 00 4a 20 43 65 6e 74 65 | 72 20 74 68 65 20 73 74 |.J Cente|r the st|
|00000650| 61 72 73 20 74 6f 20 74 | 68 65 20 6d 69 64 64 6c |ars to t|he middl|
|00000660| 65 20 6f 66 20 74 68 65 | 20 73 63 72 65 65 6e 2c |e of the| screen,|
|00000670| 20 62 75 74 20 64 6f 20 | 6d 6f 76 65 20 69 74 20 | but do |move it |
|00000680| 61 20 6c 69 74 74 6c 65 | 20 62 69 74 00 00 09 03 |a little| bit....|
|00000690| 06 52 00 0a 20 63 69 72 | 63 75 6c 61 72 2e 00 00 |.R.. cir|cular...|
|000006a0| 30 03 00 4e 08 00 0a b8 | 00 4e 08 00 11 14 00 74 |0..N....|.N.....t|
|000006b0| 00 06 00 00 02 00 77 00 | ff c0 00 3e 00 00 02 00 |......w.|...>....|
|000006c0| 00 5c 00 3e 00 00 00 20 | 00 7c ff c0 00 3e 00 00 |.\.>... |.|...>..|
|000006d0| 00 a0 00 5c 00 4e 08 00 | 11 06 00 74 00 06 00 00 |...\.N..|...t....|
|000006e0| 02 00 77 00 ff c0 00 3e | 00 00 02 00 00 5c 00 3e |..w....>|.....\.>|
|000006f0| 00 00 00 20 00 7c ff c0 | 00 3e 00 00 00 64 00 00 |... .|..|.>...d..|
|00000700| 19 03 06 52 00 2a 20 44 | 72 61 77 20 61 6c 6c 20 |...R.* D|raw all |
|00000710| 74 68 65 20 73 74 61 72 | 73 20 62 75 74 20 64 6f |the star|s but do|
|00000720| 6e 27 74 20 65 72 61 73 | 65 20 74 68 65 6d 2e 20 |n't eras|e them. |
|00000730| 00 00 05 03 00 4e 08 00 | 0b 48 00 00 05 03 00 4e |.....N..|.H.....N|
|00000740| 08 00 0b 64 00 00 0d 03 | 06 52 00 12 20 53 77 61 |...d....|.R.. Swa|
|00000750| 70 20 74 68 65 20 73 63 | 72 65 65 6e 73 2e 00 00 |p the sc|reens...|
|00000760| 03 03 0a e2 00 00 11 01 | 02 5c 00 f2 ff a2 05 52 |........|.\.....R|
|00000770| 00 74 00 3e 00 00 00 1b | 00 7c ff 4c 1e 32 ff 66 |.t.>....|.|.L.2.f|
|00000780| 00 3e 00 00 00 00 00 00 | 06 01 0a 04 00 3e 00 00 |.>......|.....>..|
|00000790| 00 00 00 00 03 01 03 b6 | 00 00 41 6d 42 73 00 00 |........|..AmBs..|
+--------+-------------------------+-------------------------+--------+--------+